home *** CD-ROM | disk | FTP | other *** search
/ Armageddon - Interactive Preview / Interactive Preview: Armageddon.iso / pc / control.dxr / Scripts & Behaviors_26_EQ Behavior.ls < prev    next >
Encoding:
Text File  |  1998-05-19  |  320 b   |  13 lines
  1. property pThisSprite, pStartCast
  2.  
  3. on new me
  4.   set pThisSprite to the currentSpriteNum
  5.   set the member of sprite pThisSprite to "EQ1"
  6.   set pStartCast to the memberNum of sprite pThisSprite
  7. end
  8.  
  9. on exitFrame me
  10.   set randomValue to random(6) - 1
  11.   set the memberNum of sprite pThisSprite to pStartCast + randomValue
  12. end
  13.